10 REM * THIS PROGRAM CHANGES AUTO-RUN
20 REM * PROGRAMS BACK TO THEIR
30 REM * ORIGINAL BASIC FORMAT
40 REM * WRITTEN BY DOUG RESENBECK 10/86
50 PRINTCHR$(147)CHR$(17)CHR$(17)
60 PRINT"  NAME OF BASIC AUTO-RUN PROGRAM"
70 PRINT:INPUTAR$:T=LEN(AR$)
80 GOSUB440
90 IFS=1THENS=0:GOTO50
100 PRINTCHR$(147)CHR$(17)CHR$(17)
110 PRINT"  NEW NAME WITH AUTO-RUN REMOVED"
120 PRINT:INPUTUA$:T=LEN(UA$)
130 GOSUB440
140 IFS=1THENS=0:GOTO100
150 PRINTCHR$(147)CHR$(17)"AUTO-RUN     "AR$
160 PRINTCHR$(17)"TO"
170 PRINTCHR$(17)"UN/AUTO-RUN  "UA$
180 PRINTCHR$(17)"PLEASE WAIT"
190 OPEN2,8,2,AR$+",P,R"
220 OPEN8,8,8,UA$+",P,W"
250 GET#2,A$,B$
260 IFA$=""THENA$=CHR$(0)
270 A=ASC(A$)
280 IFB$=""THENB$=CHR$(0)
290 B=ASC(B$):C=A+256*B:D=2049-C
300 IFD>0THEN320
310 PRINTCHR$(147)CHR$(17)"PROGRAM IS NOT A BASIC AUTO-RUN PROGRAM":GOTO380
320 FORX=1TOD:GET#2,A$:NEXT
330 PRINT#8,CHR$(1);
340 PRINT#8,CHR$(8);
350 GET#2,A$:SW=ST:IFA$=""THENA$=CHR$(0)
360 PRINT#8,A$;:IFSW=0THEN350
370 PRINTCHR$(147)CHR$(17)"DONE"
380 CLOSE2:CLOSE8
390 GOSUB480
400 IFE>0THEN500
410 PRINTCHR$(17):INPUT"MORE";N$
420 IFN$="Y"THEN50
430 END
440 IFT<17THENRETURN
450 PRINTCHR$(17):PRINT"FILENAME TOO LONG"
460 FORX=1TO1500:NEXT:S=1
470 RETURN
480 CLOSE15:OPEN15,8,15
490 INPUT#15,E,E$,TR,S:CLOSE15:RETURN
500 PRINT"DISK ERROR #";E
510 PRINTE$
520 PRINT"TRACK";TR
530 PRINT"SECTOR";S
540 CLOSE2:CLOSE8